home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / util1 / syspc211.lha / SysPic / Install SysPic < prev    next >
Text File  |  1995-12-17  |  2KB  |  86 lines
  1.  
  2. ; SysPic Installer Script
  3. ; $VER: Install SysPic 1.0 (14.12.95)
  4. ; (c) Grzegorz Calkowski / TBR
  5.  
  6. ; =======================================================================
  7.  
  8. ; Strings
  9.  
  10. (set #kick39 "SysPic requires at least Kickstart 3.0 (v39) !")
  11. (set #syspicdir "Select drawer for SysPic executable")
  12. (set #closepicdir "Select drawer for ClosePic")
  13. (set #askbonus "\nDo you want to install bonus pictures?")
  14. (set #bonusdir "Select drawer for pictures")
  15. (set #selpics "Select what pictures to install")
  16. (set #messy "\nSysPic has been installed.\n\nNow you have to edit startup-sequence by hand -\ninsert 'SysPic <filename> <options>' command\nright after 'SetPatch' command.\n\nConsult the documentation for details.")
  17.  
  18. ; =======================================================================
  19.  
  20. (if (< (/ (getversion) 65536) 39)
  21.     (abort #kick39)
  22. )
  23.  
  24. (set cpu (database "cpu"))
  25. (set prgver "SysPic")
  26. (set picsdir "")
  27.  
  28. ; Determine SysPic version
  29.  
  30. (if (OR (= cpu "68020") (= cpu "68030"))
  31.     (set prgver "SysPic.020")
  32.     (if (>= cpu "68040")
  33.         (set prgver "SysPic.040")
  34.     )
  35. )
  36.  
  37. (if (exists 'C2:' (noreq))
  38.     (set destdir "C2:")
  39.     (set destdir "C:")
  40. )
  41.  
  42. (copyfiles
  43.     (source (cat "C/" prgver))
  44.     (dest (set destdir (askdir
  45.         (help @askdir-help)
  46.         (default destdir)
  47.         (prompt #syspicdir)
  48.     )))
  49.     (newname "SysPic")
  50.     (help @copyfiles-help)
  51. )
  52.  
  53. (set @default-dest destdir)
  54.  
  55. (copyfiles
  56.     (source "WBStartup/ClosePic")
  57.     (dest (askdir
  58.         (prompt #closepicdir)
  59.         (help @askdir-help)
  60.         (default 'SYS:WBStartup')
  61.     ))
  62.     (infos)
  63.     (help @copyfiles-help)
  64. )
  65.  
  66. (if (askbool
  67.     (prompt #askbonus)
  68.     (help ""))
  69.  
  70.     (copyfiles
  71.         (prompt #selpics)
  72.         (source "Bonus")
  73.         (pattern "#?.ilbm")
  74.         (dest (set picsdir (askdir
  75.             (prompt #bonusdir)
  76.             (help @askdir-help)
  77.             (default 'SYS:Prefs/Presets')
  78.         )))
  79.         (confirm)
  80.         (help @copyfiles-help)
  81.     )
  82. )
  83.  
  84. (message #messy)
  85.  
  86.